home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gigarom 1
/
Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso
/
FILES
/
HYP
/
C-D
/
DeveloperStax.cpt
/
Developer Stack 1.1
/
card_11333.txt
< prev
next >
Wrap
Text File
|
1989-02-26
|
2KB
|
74 lines
-- card: 11333 from stack: in.1
-- bmap block id: 0
-- flags: 4000
-- background id: 3837
-- name: MoveFile
-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=82 top=302 right=324 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install
----- HyperTalk script -----
on mouseUp
if the optionkey is down then pass mouseup
put installres(XFCN,MoveFile) into it
if it is empty then play oops
else answer it
end mouseUp
-- part contents for background part 5
----- text -----
MoveFile
-- part contents for background part 10
----- text -----
7
-- part contents for background part 6
----- text -----
This moves files between folders on the same volume
(it can't be used to copy files between volumes).
Thanks to:
Dewi Williams
2227 Juniper Court
Boulder CO 80302
(303) 443 9038
Delphi: DEWI
-- part contents for background part 7
----- text -----
Syntax:
put MoveFile ("OldName",
"NewFolder") into result
"OldName" is a full pathname of the file that you want to rename.
"Newfolder" specifies the destination folder.
Do not put quotation marks around
"OldName" and "NewName"
The result will contain either
0 (meaning a successful operation),
1 (meaning a parameter error), or
a negative number (representing an operating system error).
You can use the 'OsErr' function provided in the script of this stack to interpret operating system errors.